Function: cvs-fileinfo->backup-file

cvs-fileinfo->backup-file is a byte-compiled function defined in pcvs-info.el.gz.

Signature

(cvs-fileinfo->backup-file FILEINFO)

Documentation

Construct the file name of the backup file for FILEINFO.

Source Code

;; Defined in /usr/src/emacs/lisp/vc/pcvs-info.el.gz
(defun cvs-fileinfo->backup-file (fileinfo)
  "Construct the file name of the backup file for FILEINFO."
  (let* ((dir (cvs-fileinfo->dir fileinfo))
	 (file (cvs-fileinfo->file fileinfo))
	 (default-directory (file-name-as-directory (expand-file-name dir)))
	 (files (directory-files "." nil
				 (concat "\\`" (regexp-quote cvs-bakprefix)
					 (regexp-quote file) "\\(\\.[0-9]+\\.[0-9]+\\)+\\'")))
	 bf)
    (dolist (f files)
      (when (and (file-readable-p f)
		 (or (null bf) (file-newer-than-file-p f bf)))
	(setq bf f)))
    (concat dir bf)))